Usenet 1993 July/InfoMagic USENET CD-ROM July 1993.ISO/sources/misc/volume21/rayshade/part03

Text File | 1991-07-21 | 53.9 KB | 1,870 lines

Newsgroups: comp.sources.misc
From: Rayshade Construction Co. <[e-mail]>
Subject:  v21i006:  rayshade - A raytracing package for UNIX, Part03/19
Message-ID: <[e-mail]>
X-Md4-Signature: 8450356fb326179bed42194bdba5992e
Date: Sat, 20 Jul 1991 04:33:45 GMT
Approved: [e-mail]

Submitted-by: Rayshade Construction Co. <[e-mail]>
Posting-number: Volume 21, Issue 6
Archive-name: rayshade/part03
Environment: UNIX, !16BIT

#! /bin/sh
# This is a shell archive.  Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file".  To overwrite existing
# files, type "sh file -c".  You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g..  If this archive is complete, you
# will see the following message at the end:
#        "End of archive 3 (of 19)."
# Contents:  Doc/Changes Doc/Guide/transform.tex Doc/TODO
#   Examples/boxball.ray Reconfigure libray/libcommon/color.h
#   libray/libcommon/error.h libray/libcommon/expr.h
#   libray/libcommon/rotate.h libray/libcommon/sampling.h
#   libray/libcommon/translate.h libray/libimage/image.h
#   libray/libobj/bounds.h libray/libobj/csg.h
#   libray/libobj/instance.h libray/libobj/poly.h
#   libray/libobj/torus.h libray/libsurf/atmosphere.h
#   libray/libtext/blotch.c libray/libtext/bump.c
#   libray/libtext/checker.c libray/libtext/fbmbump.c
#   libray/libtext/gloss.c libray/libtext/imagetext.h
#   libray/libtext/mount.c libshade/builtin.c libshade/stats.h
#   libshade/symtab.h libshade/viewing.h
# Wrapped by kolb@woody on Wed Jul 17 17:56:37 1991
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'Doc/Changes' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'Doc/Changes'\"
else
echo shar: Extracting \"'Doc/Changes'\" \(1361 characters\)
sed "s/^X//" >'Doc/Changes' <<'END_OF_FILE'
XMajor changes since 3.0
X-----------------------
XAddition of CSG.  "union", "intersect" and "difference" types.
X
XAnimation support.  Multi-frame image files, use of expressions, animated
Xtransformations, new keywords, including: shutter, frames, framelength,
Xdefine, starttime.  "linear" function, "time" and "frame" variables.
X
XAggregate syntax changed.  Rather than "define .... defend" with
Xthe aggregate type buried inbetween, syntax is "type ... end", where type
Xis one of: grid, list, union, intersect, difference.  Object naming
Xis now accomplished by preceding one of the above with the "name" keyword
Xfollowed by the name to assign to the aggregate.
X
XTorus, blob primitives added, courtesy of Mark Podlipec and Jochen Schwarze.
XBuggy superquadric primitive removed.
X
XSurface definition syntax and binding changed.  Surface definition is now keyword-
Xbased.  Note that the specular color of a surface is used to modify the color of
Xreflected rays in 4.0.  When converting 3.0 scripts to 4.0, the specular component
Xand/or reflectivity may need to be modified.
X
XImproved antialiasing.  Rather than using an adaptive scheme or nonadaptive
X"distributed" ray tracing, an adaptive jittered algorithm is used.
X
XAdditional textures and light source types.
X
XVastly improved performance when using many texturing functions.
X
XMany minor and not-so-minor bugfixes.
END_OF_FILE
if test 1361 -ne `wc -c <'Doc/Changes'`; then
    echo shar: \"'Doc/Changes'\" unpacked with wrong size!
fi
# end of 'Doc/Changes'
fi
if test -f 'Doc/Guide/transform.tex' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'Doc/Guide/transform.tex'\"
else
echo shar: Extracting \"'Doc/Guide/transform.tex'\" \(1496 characters\)
sed "s/^X//" >'Doc/Guide/transform.tex' <<'END_OF_FILE'
X\chapter {Transformations}
X
XRayshade supports the application of linear transformations to objects
Xand textures.  If more than one transformation is specified, the
Xtotal resulting transformation is computed and applied.
X
X\begin{defkey}{translate}{\evec{delta}}
XTranslate (move) by {\em delta}.
X\end{defkey}
X
X\begin{defkey}{rotate}{\evec{axis} $\theta$}
XRotate counter-clockwise about the given axis by $\theta$ degrees.
X\end{defkey}
X
X\begin{defkey}{scale}{\evec{v}}
XScale by {\em v}.
X\end{defkey}
XAll three scaling components must be non-zero, else degenerate matrices
Xwill result.
X
X\begin{defkey}{transform}{\evec{row1} \evec{row2} \evec{row3} [\evec{delta}]}
XApply the given 3-by-3 transformation matrix.  If given, {\em delta}
Xspecifies a translation vector.
X\end{defkey}
X
XTransformations should
Xbe specified in the order in which they are to be applied
Ximmediately following the item to
Xbe transformed.  For example:
X
X\begin{verbatim}
X        /*
X         * Ellipsoid, rotated cube
X         */
X        sphere 1. 0 0 0   scale 2. 1. 1. translate 0 0 -2.5
X        box 0 0 0 .5 .5 .5
X           rotate 0 0 1 45 rotate 1 0 0 45 translate 0 0 2.5
X\end{verbatim}
X
XTransformations may also be applied to textures:
X
X\begin{verbatim}
X   plane 0 0 -4  0 0 1
X     texture checker red scale 2 2 2 rotate 0 0 1 45
X\end{verbatim}
X
XNote that transformation parameters may be specified using
Xof animated expressions, causing the transformations themselves
Xto be animated.  See Appendix B for further details.
END_OF_FILE
if test 1496 -ne `wc -c <'Doc/Guide/transform.tex'`; then
    echo shar: \"'Doc/Guide/transform.tex'\" unpacked with wrong size!
fi
# end of 'Doc/Guide/transform.tex'
fi
if test -f 'Doc/TODO' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'Doc/TODO'\"
else
echo shar: Extracting \"'Doc/TODO'\" \(1287 characters\)
sed "s/^X//" >'Doc/TODO' <<'END_OF_FILE'
X---------
XTODO List
X---------
X
XNon-URT images upside-down.
X
XIf World object has only one subobject, and the World
Xis neither textured nor transformed (can't do this anyway),
Xthen make that object the World object.  In theory we could
Xdo this (collapsing) throughout the modeling tree.
X
X> 2 objects in CSG objects
X
XCreate nasty, rigorous test scenes, more examples in general.
X
XAnimated lights & camera.
X
XCubic interpolation functions.
X
XAnimated primitive/texture/surface/etc parameters.
X
XThere should be a windowing command that takes pixel locations
Xas well as one that takes normalized coordinates.
X
XPut Linda code back in place.
X
XUser-selectable primitives/aggregates/lights/textures at compile time?
X
XTechnical Documentation
X
XMake heightfields be stored in fixed-point, and take care of byte-ordering
Xproblems so that height fields are transportable from machine to machine.
X
XIs Bayes' theorem-based polygon intersection method better?
X
XAdaptive gridding.
X
XBetter antialiasing.
X
XAdd an option to perform sorting during ray/List intersection tests so
Xobjects are tested approximately in order.
X
XExpr compressor program:  Spits out .ray file with just floats.
X
XOptimize blur for non-jitter case (don't exapnd bboxes, etc).
X
XAnimated scales and translations can modify matrix directly.
END_OF_FILE
if test 1287 -ne `wc -c <'Doc/TODO'`; then
    echo shar: \"'Doc/TODO'\" unpacked with wrong size!
fi
# end of 'Doc/TODO'
fi
if test -f 'Examples/boxball.ray' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'Examples/boxball.ray'\"
else
echo shar: Extracting \"'Examples/boxball.ray'\" \(1380 characters\)
sed "s/^X//" >'Examples/boxball.ray' <<'END_OF_FILE'
X/*
X * White diffuse sphere with wooden box-shaped regions removed.
X * Rod Bogart 11/90
X */
Xeyep  4 3 5
Xfov 15
Xlight 1 directional 1 0.5 2
Xsample 1    /* Increase this value for less noisy image */
Xreport verbose
Xscreen 320 256
X
Xplane 0. 0. -5. 0. 0. 1 texture marble scale 2 2 1
X
Xdifference
X    sphere  0.65 0 0 0
X    grid 3 3 3
X        applysurf ambient .2 .05 .05
X              diffuse .8 .1 .05
X              specular .05 .05 .05
X                specpow 20
X
X        box 0.3 0.3 -0.7 0.7 0.7 -0.3
X        box -0.2 0.3 -0.7 0.2 0.7 -0.3
X        box -0.7 0.3 -0.7 -0.3 0.7 -0.3
X
X        box 0.3 0.3 -0.2 0.7 0.7 0.2
X        box -0.2 0.3 -0.2 0.2 0.7 0.2
X        box -0.7 0.3 -0.2 -0.3 0.7 0.2
X
X        box 0.3 0.3 0.3 0.7 0.7 0.7
X        box -0.2 0.3 0.3 0.2 0.7 0.7
X        box -0.7 0.3 0.3 -0.3 0.7 0.7
X
X        box 0.3 -0.2 -0.7 0.7 0.2 -0.3
X        box -0.2 -0.2 -0.7 0.2 0.2 -0.3
X        box -0.7 -0.2 -0.7 -0.3 0.2 -0.3
X
X        box 0.3 -0.2 -0.2 0.7 0.2 0.2
X        box -0.2 -0.2 -0.2 0.2 0.2 0.2
X        box -0.7 -0.2 -0.2 -0.3 0.2 0.2
X
X        box 0.3 -0.2 0.3 0.7 0.2 0.7
X        box -0.2 -0.2 0.3 0.2 0.2 0.7
X        box -0.7 -0.2 0.3 -0.3 0.2 0.7
X
X        box 0.3 -0.7 -0.7 0.7 -0.3 -0.3
X        box -0.2 -0.7 -0.7 0.2 -0.3 -0.3
X        box -0.7 -0.7 -0.7 -0.3 -0.3 -0.3
X
X        box 0.3 -0.7 -0.2 0.7 -0.3 0.2
X        box -0.2 -0.7 -0.2 0.2 -0.3 0.2
X        box -0.7 -0.7 -0.2 -0.3 -0.3 0.2
X
X        box 0.3 -0.7 0.3 0.7 -0.3 0.7
X        box -0.2 -0.7 0.3 0.2 -0.3 0.7
X        box -0.7 -0.7 0.3 -0.3 -0.3 0.7
X    end texture wood scale 3 1 1
Xend
END_OF_FILE
if test 1380 -ne `wc -c <'Examples/boxball.ray'`; then
    echo shar: \"'Examples/boxball.ray'\" unpacked with wrong size!
fi
# end of 'Examples/boxball.ray'
fi
if test -f 'Reconfigure' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'Reconfigure'\"
else
echo shar: Extracting \"'Reconfigure'\" \(1482 characters\)
sed "s/^X//" >'Reconfigure' <<'END_OF_FILE'
X#!/bin/sh
X#
X# Reconfigure
X# Extract .SH files using values in config.sh
X#
X# Useful in environments in which the source tree
X# is used to build executables for more than one kind of machine.
X# After running Configure on a particular machine, copy the
X# resulting config.sh to, for example, config.sh.SPARC.
X# When you have to recompile for some reason, running
X# "Reconfigure config.sh.SPARC" should produce the correct Makefiles
X# and the like.
X#
X# If you need to run "make depend" for a machine other than the one
X# that the Configure script was last run for, you will need to remake
X# the "mkdep" script by removing it, copying the appropriate
X# config.sh.MACHINE file to config.sh, and running "Configure -d".
X#
X
Xcase "$1" in
X'')
X    configfile="./config.sh"
X    ;;
X*)
X    if test -f "$1" ; then
X        configfile="$1"
X    else
X        echo "$1 does not exist."
X        exit
X    fi
Xesac
X
Xecho "Reconfiguring using $configfile."
X. $configfile
X
Xecho " "
Xecho "Doing variable substitutions on .SH files..."
Xset x `awk '{print $1}' <MANIFEST | $grep '\.SH'`
Xshift
Xcase $# in
X0) set x *.SH; shift;;
Xesac
Xif test ! -f $1; then
X    shift
Xfi
Xfor file in $*; do
X    case "$file" in
X    */*)
X    dir=`$expr X$file : 'X\(.*\)/'`
X    file=`$expr X$file : 'X.*/\(.*\)'`
X    (cd $dir && . $file)
X    ;;
X    *)
X    . $file
X    ;;
X    esac
Xdone
Xif test -f config.h.SH; then
X    if test ! -f config.h; then
X    : oops, they left it out of MANIFEST, probably, so do it anyway.
X    . config.h.SH
X    fi
Xfi
X
Xecho "You must run 'make depend' then 'make'."
END_OF_FILE
if test 1482 -ne `wc -c <'Reconfigure'`; then
    echo shar: \"'Reconfigure'\" unpacked with wrong size!
fi
chmod +x 'Reconfigure'
# end of 'Reconfigure'
fi
if test -f 'libray/libcommon/color.h' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'libray/libcommon/color.h'\"
else
echo shar: Extracting \"'libray/libcommon/color.h'\" \(1241 characters\)
sed "s/^X//" >'libray/libcommon/color.h' <<'END_OF_FILE'
X/*
X * color.h
X *
X * Copyright (C) 1989, 1991, Craig E. Kolb
X * All rights reserved.
X *
X * This software may be freely copied, modified, and redistributed
X * provided that this copyright notice is preserved on all copies.
X *
X * You may not distribute this software, in whole or in part, as part of
X * any commercial product without the express consent of the authors.
X *
X * There is no warranty or other guarantee of fitness of this software
X * for any purpose.  It is provided solely "as is".
X *
X * $Id: color.h,v 4.0 91/07/17 14:30:08 kolb Exp Locker: kolb $
X *
X * $Log:    color.h,v $
X * Revision 4.0  91/07/17  14:30:08  kolb
X * Initial version.
X *
X */
X#ifndef COLOR_H
X#define COLOR_H
X/*
X * Color
X */
Xtypedef struct Color {
X    Float r, g, b;            /* Red, green, blue. */
X} Color;
X
X#define ColorScale(s,c,a)        (a)->r = (s)*(c).r, \
X                    (a)->g = (s)*(c).g, \
X                    (a)->b = (s)*(c).b
X
X#define ColorAddScaled(x, s, y, c)    (c)->r = (x).r + (s)*(y).r, \
X                    (c)->g = (x).g + (s)*(y).g, \
X                    (c)->b = (x).b + (s)*(y).b
X
X#define ColorMultiply(x,y,a)        (a)->r = (x).r*(y).r, \
X                    (a)->g = (x).g*(y).g, \
X                    (a)->b = (x).b*(y).b
X
X#define ColorAdd(x,y,a)            (a)->r = (x).r+(y).r, \
X                    (a)->g = (x).g+(y).g, \
X                    (a)->b = (x).b+(y).b
X#endif COLOR_H
END_OF_FILE
if test 1241 -ne `wc -c <'libray/libcommon/color.h'`; then
    echo shar: \"'libray/libcommon/color.h'\" unpacked with wrong size!
fi
# end of 'libray/libcommon/color.h'
fi
if test -f 'libray/libcommon/error.h' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'libray/libcommon/error.h'\"
else
echo shar: Extracting \"'libray/libcommon/error.h'\" \(1417 characters\)
sed "s/^X//" >'libray/libcommon/error.h' <<'END_OF_FILE'
X/*
X * error.h
X *
X * Copyright (C) 1989, 1991, Craig E. Kolb
X * All rights reserved.
X *
X * This software may be freely copied, modified, and redistributed
X * provided that this copyright notice is preserved on all copies.
X *
X * You may not distribute this software, in whole or in part, as part of
X * any commercial product without the express consent of the authors.
X *
X * There is no warranty or other guarantee of fitness of this software
X * for any purpose.  It is provided solely "as is".
X *
X * $Id: error.h,v 4.0 91/07/17 14:30:27 kolb Exp Locker: kolb $
X *
X * $Log:    error.h,v $
X * Revision 4.0  91/07/17  14:30:27  kolb
X * Initial version.
X *
X */
X#ifndef ERROR_H
X#define ERROR_H
X/*
X * Error severity codes, passed to user-provided RLerror()
X * function which optionally prints and optionally exits.
X *
X * RL_ADVISE    Message may safely be safely suppressed, though
X *        the resulting image may not be exactly what you expect.
X * RL_WARN    Message should probably be printed; image will most
X *        likely be affected.
X * RL_ABORT    Message should be printed -- couldn't perform a request.
X *        The resulting image will be affected.
X * RL_PANIC    Fatal error -- call to RLerror() must not return.
X */
X#define RL_ADVISE    0    /* Advisory */
X#define RL_WARN        1    /* Warning */
X#define RL_ABORT    2    /* Aborted */
X#define RL_PANIC    3    /* Panic */
X
Xextern void RLerror();        /* application-supplied reporting routine */
X#endif /* ERROR_H */
END_OF_FILE
if test 1417 -ne `wc -c <'libray/libcommon/error.h'`; then
    echo shar: \"'libray/libcommon/error.h'\" unpacked with wrong size!
fi
# end of 'libray/libcommon/error.h'
fi
if test -f 'libray/libcommon/expr.h' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'libray/libcommon/expr.h'\"
else
echo shar: Extracting \"'libray/libcommon/expr.h'\" \(1552 characters\)
sed "s/^X//" >'libray/libcommon/expr.h' <<'END_OF_FILE'
X/*
X * expr.h
X *
X * Copyright (C) 1989, 1991, Craig E. Kolb, Rod G. Bogart
X * All rights reserved.
X *
X * This software may be freely copied, modified, and redistributed
X * provided that this copyright notice is preserved on all copies.
X *
X * You may not distribute this software, in whole or in part, as part of
X * any commercial product without the express consent of the authors.
X *
X * There is no warranty or other guarantee of fitness of this software
X * for any purpose.  It is provided solely "as is".
X *
X * $Id: expr.h,v 4.0 91/07/17 14:30:47 kolb Exp Locker: kolb $
X *
X * $Log:    expr.h,v $
X * Revision 4.0  91/07/17  14:30:47  kolb
X * Initial version.
X *
X */
X#ifndef EXPR_H
X#define EXPR_H
X
X#define FLOAT_EXPR        0
X#define BUILTIN_EXPR        1
X
Xtypedef struct Expr {
X    short    type,            /* Expr type (float/builtin/time) */
X        timevary,        /* does the expr vary over time? */
X        symtab,            /* is the expr in the symtab? */
X        nparams;        /* # of params, if builtin */
X    Float    value,            /* float val/last eval if timeexpr */
X        timenow,        /* time of last evaluation */
X        (*function)();
X    struct Expr **params;        /* parameters, if a builtin */
X} Expr;
X
Xtypedef struct ExprAssoc {
X    Float *lhs;            /* left-hand side */
X    Expr *expr;            /* right-hand side */
X    struct ExprAssoc *next;        /* Next in list */
X} ExprAssoc;
X
Xextern Float    ExprEval();
X
Xextern Expr    *ExprResolve1(), *ExprResolve2(), *ExprResolve3(),
X        *ExprResolve4(), *ExprResolve5(), *ExprFloatCreate();
Xextern Expr    *TimeExpr, *FrameExpr, *ExprReuseFloatCreate();
X
Xextern ExprAssoc *AssocCreate();
X
X#endif /* EXPR_H */
END_OF_FILE
if test 1552 -ne `wc -c <'libray/libcommon/expr.h'`; then
    echo shar: \"'libray/libcommon/expr.h'\" unpacked with wrong size!
fi
# end of 'libray/libcommon/expr.h'
fi
if test -f 'libray/libcommon/rotate.h' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'libray/libcommon/rotate.h'\"
else
echo shar: Extracting \"'libray/libcommon/rotate.h'\" \(1244 characters\)
sed "s/^X//" >'libray/libcommon/rotate.h' <<'END_OF_FILE'
X/*
X * rotate.h
X *
X * Copyright (C) 1989, 1991, Craig E. Kolb
X * All rights reserved.
X *
X * This software may be freely copied, modified, and redistributed
X * provided that this copyright notice is preserved on all copies.
X *
X * You may not distribute this software, in whole or in part, as part of
X * any commercial product without the express consent of the authors.
X *
X * There is no warranty or other guarantee of fitness of this software
X * for any purpose.  It is provided solely "as is".
X *
X * $Id: rotate.h,v 4.0 91/07/17 14:31:26 kolb Exp Locker: kolb $
X *
X * $Log:    rotate.h,v $
X * Revision 4.0  91/07/17  14:31:26  kolb
X * Initial version.
X *
X */
X#ifndef ROTATE_H
X#define ROTATE_H
X
X#define TransRotateCreate()        TransCreate((TransRef)RotateCreate(), RotateMethods())
X
X#define TransRotateSetX(t, v)        TransAssoc(t, &((Rotate *)t->tr)->x, v)
X#define TransRotateSetY(t, v)        TransAssoc(t, &((Rotate *)t->tr)->y, v)
X#define TransRotateSetZ(t, v)        TransAssoc(t, &((Rotate *)t->tr)->z, v)
X#define TransRotateSetTheta(t, v)    TransAssoc(t, &((Rotate *)t->tr)->theta, v)
X
Xtypedef struct {
X    Float x, y, z, theta;
X} Rotate;
X
Xextern Rotate *RotateCreate();
Xextern TransMethods *RotateMethods();
Xextern void RotatePropagate();
X
X#endif /* ROTATE_H */
END_OF_FILE
if test 1244 -ne `wc -c <'libray/libcommon/rotate.h'`; then
    echo shar: \"'libray/libcommon/rotate.h'\" unpacked with wrong size!
fi
# end of 'libray/libcommon/rotate.h'
fi
if test -f 'libray/libcommon/sampling.h' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'libray/libcommon/sampling.h'\"
else
echo shar: Extracting \"'libray/libcommon/sampling.h'\" \(1485 characters\)
sed "s/^X//" >'libray/libcommon/sampling.h' <<'END_OF_FILE'
X/*
X * sampling.h
X *
X * Copyright (C) 1989, 1991, Craig E. Kolb
X * All rights reserved.
X *
X * This software may be freely copied, modified, and redistributed
X * provided that this copyright notice is preserved on all copies.
X *
X * You may not distribute this software, in whole or in part, as part of
X * any commercial product without the express consent of the authors.
X *
X * There is no warranty or other guarantee of fitness of this software
X * for any purpose.  It is provided solely "as is".
X *
X * $Id: sampling.h,v 4.0 91/07/17 14:32:01 kolb Exp Locker: kolb $
X *
X * $Log:    sampling.h,v $
X * Revision 4.0  91/07/17  14:32:01  kolb
X * Initial version.
X *
X */
X#ifndef SAMPLING_H
X#define SAMPLING_H
X
X/*
X * # of subsamples to take within each of the totsamples slots when
X * computing 'animated' bounding boxes.
X */
X#define TIME_SUB_SAMPLES    10
X
Xtypedef struct SampleInfo {
X    int    totsamples,    /* # of samples/pixel */
X        sidesamples,    /* sqrt(samples) */
X        gaussian,    /* gaussian filter? */
X        framenum,    /* current frame numer */
X        timemagic;    /* # of time samples per screen... */
X    Float    weight,        /* 1. / totsamples */
X        spacing,    /* 1. / sidesamples  */
X        filterwidth,    /* total width of filter */
X        filterdelta,    /* filterwidth * spacing */
X        **filter,    /* pixel filter, sidesamp by sidesamp */
X        starttime,    /* start time */
X        shutter;    /* length of time shutter is open */
X} SampleInfo;
X
Xextern SampleInfo Sampling;
X
Xextern void    SamplingSetOptions(), UnitCirclePoint();
X
X#endif /* SAMPLING */
END_OF_FILE
if test 1485 -ne `wc -c <'libray/libcommon/sampling.h'`; then
    echo shar: \"'libray/libcommon/sampling.h'\" unpacked with wrong size!
fi
# end of 'libray/libcommon/sampling.h'
fi
if test -f 'libray/libcommon/translate.h' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'libray/libcommon/translate.h'\"
else
echo shar: Extracting \"'libray/libcommon/translate.h'\" \(1199 characters\)
sed "s/^X//" >'libray/libcommon/translate.h' <<'END_OF_FILE'
X/*
X * translate.h
X *
X * Copyright (C) 1989, 1991, Craig E. Kolb
X * All rights reserved.
X *
X * This software may be freely copied, modified, and redistributed
X * provided that this copyright notice is preserved on all copies.
X *
X * You may not distribute this software, in whole or in part, as part of
X * any commercial product without the express consent of the authors.
X *
X * There is no warranty or other guarantee of fitness of this software
X * for any purpose.  It is provided solely "as is".
X *
X * $Id: translate.h,v 4.0 91/07/17 14:32:49 kolb Exp Locker: kolb $
X *
X * $Log:    translate.h,v $
X * Revision 4.0  91/07/17  14:32:49  kolb
X * Initial version.
X *
X */
X#ifndef TRANSLATE_H
X#define TRANSLATE_H
X
X#define TransTranslateCreate()        TransCreate((TransRef)TranslateCreate(), TranslateMethods())
X
X#define TransTranslateSetX(t, v)        TransAssoc(t, &((Translate *)t->tr)->x, v)
X#define TransTranslateSetY(t, v)        TransAssoc(t, &((Translate *)t->tr)->y, v)
X#define TransTranslateSetZ(t, v)        TransAssoc(t, &((Translate *)t->tr)->z, v)
X
Xtypedef Vector Translate;
X
Xextern Translate *TranslateCreate();
Xextern TransMethods *TranslateMethods();
Xextern void TranslatePropagate();
X
X#endif /* TRANSLATE_H */
END_OF_FILE
if test 1199 -ne `wc -c <'libray/libcommon/translate.h'`; then
    echo shar: \"'libray/libcommon/translate.h'\" unpacked with wrong size!
fi
# end of 'libray/libcommon/translate.h'
fi
if test -f 'libray/libimage/image.h' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'libray/libimage/image.h'\"
else
echo shar: Extracting \"'libray/libimage/image.h'\" \(1190 characters\)
sed "s/^X//" >'libray/libimage/image.h' <<'END_OF_FILE'
X/*
X * image.h
X *
X * Copyright (C) 1989, 1991, Rod G. Bogart, Craig E. Kolb
X * All rights reserved.
X *
X * This software may be freely copied, modified, and redistributed
X * provided that this copyright notice is preserved on all copies.
X *
X * You may not distribute this software, in whole or in part, as part of
X * any commercial product without the express consent of the authors.
X *
X * There is no warranty or other guarantee of fitness of this software
X * for any purpose.  It is provided solely "as is".
X *
X * $Id: image.h,v 4.0 91/07/17 14:33:39 kolb Exp Locker: kolb $
X *
X * $Log:    image.h,v $
X * Revision 4.0  91/07/17  14:33:39  kolb
X * Initial version.
X *
X */
X#ifndef IMAGE_H
X#define IMAGE_H
X
X/*
X * Generic image object for texture map storage.
X */
Xtypedef struct Image {
X    int    width, height,        /* Image size */
X        chan, has_alpha,    /* # of channels, has alpha info? */
X        totalchan,        /* # channels + any alpha channel */
X        chansize;        /* width * height */
X    unsigned char *data;        /* Image */
X    char    *filename;        /* Filename (identifier) */
X    struct Image *next;        /* Next image in list. */
X} Image;
X
XImage    *ImageCreate(), *ImageFind(), *ImageRead();
Xvoid    ImageIndex();
X
X#endif /* IMAGE_H */
END_OF_FILE
if test 1190 -ne `wc -c <'libray/libimage/image.h'`; then
    echo shar: \"'libray/libimage/image.h'\" unpacked with wrong size!
fi
# end of 'libray/libimage/image.h'
fi
if test -f 'libray/libobj/bounds.h' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'libray/libobj/bounds.h'\"
else
echo shar: Extracting \"'libray/libobj/bounds.h'\" \(1348 characters\)
sed "s/^X//" >'libray/libobj/bounds.h' <<'END_OF_FILE'
X/*
X * bounds.h
X *
X * Copyright (C) 1989, 1991, Craig E. Kolb
X * All rights reserved.
X *
X * This software may be freely copied, modified, and redistributed
X * provided that this copyright notice is preserved on all copies.
X *
X * You may not distribute this software, in whole or in part, as part of
X * any commercial product without the express consent of the authors.
X *
X * There is no warranty or other guarantee of fitness of this software
X * for any purpose.  It is provided solely "as is".
X *
X * $Id: bounds.h,v 4.0 91/07/17 14:36:26 kolb Exp Locker: kolb $
X *
X * $Log:    bounds.h,v $
X * Revision 4.0  91/07/17  14:36:26  kolb
X * Initial version.
X *
X */
X#ifndef BOUNDS_H
X#define BOUNDS_H
X
X/*
X * Used to make indices into bounding box arrays more readable.
X */
X#define X    0
X#define Y    1
X#define Z    2
X#define LOW    0
X#define HIGH    1
X
X/*
X * If minimum X is greater than maximum, then
X * is considered to be unbounded.
X */
X
X#define UNBOUNDED(o)    ((o)->bounds[LOW][X] > (o)->bounds[HIGH][X])
X
X/*
X * Is the point p outside of the bounding box "b"?
X */
X#define OutOfBounds(p,b) ((p)->x < b[0][0] || (p)->x > b[1][0] ||\
X              (p)->y < b[0][1] || (p)->y > b[1][1] ||\
X              (p)->z < b[0][2] || (p)->z > b[1][2])
X
Xextern void     BoundsCopy(), BoundsPrint(),
X        BoundsInit(), BoundsEnlarge(),
X        BoundsTransform();
X
Xextern int    BoundsIntersect();
X#endif /* BOUNDS_H */
END_OF_FILE
if test 1348 -ne `wc -c <'libray/libobj/bounds.h'`; then
    echo shar: \"'libray/libobj/bounds.h'\" unpacked with wrong size!
fi
# end of 'libray/libobj/bounds.h'
fi
if test -f 'libray/libobj/csg.h' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'libray/libobj/csg.h'\"
else
echo shar: Extracting \"'libray/libobj/csg.h'\" \(1237 characters\)
sed "s/^X//" >'libray/libobj/csg.h' <<'END_OF_FILE'
X/*
X * csg.h
X *
X * Copyright (C) 1989, 1991, Craig E. Kolb
X * All rights reserved.
X *
X * This software may be freely copied, modified, and redistributed
X * provided that this copyright notice is preserved on all copies.
X *
X * You may not distribute this software, in whole or in part, as part of
X * any commercial product without the express consent of the authors.
X *
X * There is no warranty or other guarantee of fitness of this software
X * for any purpose.  It is provided solely "as is".
X *
X * $Id: csg.h,v 4.0 91/07/17 14:37:06 kolb Exp Locker: kolb $
X *
X * $Log:    csg.h,v $
X * Revision 4.0  91/07/17  14:37:06  kolb
X * Initial version.
X *
X */
X#ifndef CSG_H
X#define CSG_H
X
X#define GeomCsgCreate(t)    GeomCreate((GeomRef)CsgCreate(t), CsgMethods())
X
X/*
X * CSG (Constructive Solid Geometry)
X */
X#define CSG_UNION    0
X#define CSG_INTERSECT    1
X#define CSG_DIFFERENCE    2
X
Xtypedef struct Csg {
X    char operator;            /* Union, Intersect, or Difference */
X    struct Geom *obj1, *obj2;
X    int (*intmeth)();        /* Intersection method. */
X    Float bounds[2][3];
X} Csg;
X
Xextern char    *CsgName();
Xextern Csg    *CsgCreate();
Xextern int    CsgIntersect(), CsgConvert();
Xextern void    CsgBounds();
Xextern int    FirstCsgGeom();
Xextern Methods    *CsgMethods();
X
X#endif /* CSG_H */
END_OF_FILE
if test 1237 -ne `wc -c <'libray/libobj/csg.h'`; then
    echo shar: \"'libray/libobj/csg.h'\" unpacked with wrong size!
fi
# end of 'libray/libobj/csg.h'
fi
if test -f 'libray/libobj/instance.h' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'libray/libobj/instance.h'\"
else
echo shar: Extracting \"'libray/libobj/instance.h'\" \(1159 characters\)
sed "s/^X//" >'libray/libobj/instance.h' <<'END_OF_FILE'
X/*
X * instance.h
X *
X * Copyright (C) 1989, 1991, Craig E. Kolb
X * All rights reserved.
X *
X * This software may be freely copied, modified, and redistributed
X * provided that this copyright notice is preserved on all copies.
X *
X * You may not distribute this software, in whole or in part, as part of
X * any commercial product without the express consent of the authors.
X *
X * There is no warranty or other guarantee of fitness of this software
X * for any purpose.  It is provided solely "as is".
X *
X * $Id: instance.h,v 4.0 91/07/17 14:38:30 kolb Exp Locker: kolb $
X *
X * $Log:    instance.h,v $
X * Revision 4.0  91/07/17  14:38:30  kolb
X * Initial version.
X *
X */
X#ifndef INSTANCE_H
X#define INSTANCE_H
X
X#define GeomInstanceCreate(o)  GeomCreate((GeomRef)InstanceCreate(o), \
X                    InstanceMethods())
X
X/*
X * Instance object
X */
Xtypedef struct {
X    struct Geom *obj;    /* Geom being instantiated */
X    Float bounds[2][3];    /* Bounding box of object */
X} Instance;
X
Xextern char    *InstanceName();
Xextern int    InstanceIntersect(), InstanceConvert();
Xextern void    InstanceBounds();
Xextern Instance    *InstanceCreate();
Xextern Methods    *InstanceMethods();
X
X#endif /* INSTANCE_H */
END_OF_FILE
if test 1159 -ne `wc -c <'libray/libobj/instance.h'`; then
    echo shar: \"'libray/libobj/instance.h'\" unpacked with wrong size!
fi
# end of 'libray/libobj/instance.h'
fi
if test -f 'libray/libobj/poly.h' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'libray/libobj/poly.h'\"
else
echo shar: Extracting \"'libray/libobj/poly.h'\" \(1275 characters\)
sed "s/^X//" >'libray/libobj/poly.h' <<'END_OF_FILE'
X/*
X * poly.h
X *
X * Copyright (C) 1989, 1991, Craig E. Kolb
X * All rights reserved.
X *
X * This software may be freely copied, modified, and redistributed
X * provided that this copyright notice is preserved on all copies.
X *
X * You may not distribute this software, in whole or in part, as part of
X * any commercial product without the express consent of the authors.
X *
X * There is no warranty or other guarantee of fitness of this software
X * for any purpose.  It is provided solely "as is".
X *
X * $Id: poly.h,v 4.0 91/07/17 14:39:04 kolb Exp Locker: kolb $
X *
X * $Log:    poly.h,v $
X * Revision 4.0  91/07/17  14:39:04  kolb
X * Initial version.
X *
X */
X#ifndef POLY_H
X#define POLY_H
X
X#define GeomPolygonCreate(r,p,f) GeomCreate((GeomRef)PolygonCreate(r,p,f), \
X                    PolygonMethods())
X
X/*
X * Polygon
X */
Xtypedef struct {
X    Vector norm;        /* Normal to polygon */
X    Float d;        /* Plane constant */
X    char index;        /* Which normal coord is "dominant"? */
X    Vector *points;        /* Array of vertices */
X    int npoints;        /* Number of vertices */
X} Polygon;
X
Xextern Polygon    *PolygonCreate();
Xextern Methods    *PolygonMethods();
Xextern int    PolygonIntersect(), PolygonEnter(), PolygonNormal();
Xextern void    PolygonBounds(), PolygonUV(), PolygonStats();
Xextern char    *PolygonName();
X
X#endif /* POLY_H */
END_OF_FILE
if test 1275 -ne `wc -c <'libray/libobj/poly.h'`; then
    echo shar: \"'libray/libobj/poly.h'\" unpacked with wrong size!
fi
# end of 'libray/libobj/poly.h'
fi
if test -f 'libray/libobj/torus.h' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'libray/libobj/torus.h'\"
else
echo shar: Extracting \"'libray/libobj/torus.h'\" \(1216 characters\)
sed "s/^X//" >'libray/libobj/torus.h' <<'END_OF_FILE'
X/*
X * torus.h
X *
X * Copyright (C) 1990, 1991, Mark Polipec, Craig E. Kolb
X * All rights reserved.
X *
X * This software may be freely copied, modified, and redistributed
X * provided that this copyright notice is preserved on all copies.
X *
X * You may not distribute this software, in whole or in part, as part of
X * any commercial product without the express consent of the authors.
X *
X * There is no warranty or other guarantee of fitness of this software
X * for any purpose.  It is provided solely "as is".
X *
X * $Id: torus.h,v 4.0 91/07/17 14:39:31 kolb Exp Locker: kolb $
X *
X * $Log:    torus.h,v $
X * Revision 4.0  91/07/17  14:39:31  kolb
X * Initial version.
X *
X */
X#ifndef TORUS_H
X#define TORUS_H
X
X#define GeomTorusCreate(a,b,p,n) GeomCreate((GeomRef)TorusCreate(a,b,p,n), \
X                    TorusMethods())
X
X/*
X * Torus
X */
Xtypedef struct {
X    Float a;        /* tube radius */
X    Float b;        /* swept radius */
X    Float aa, bb;        /* squares of the above */
X    Trans trans;        /* general<-->canonical transform */
X} Torus;
X
Xextern Torus    *TorusCreate();
Xextern int    TorusIntersect(), TorusEnter(), TorusNormal();
Xextern void    TorusBounds(), TorusUV(), TorusStats();
Xextern char    *TorusName();
Xextern Methods    *TorusMethods();
X
X#endif /* TORUS_H */
END_OF_FILE
if test 1216 -ne `wc -c <'libray/libobj/torus.h'`; then
    echo shar: \"'libray/libobj/torus.h'\" unpacked with wrong size!
fi
# end of 'libray/libobj/torus.h'
fi
if test -f 'libray/libsurf/atmosphere.h' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'libray/libsurf/atmosphere.h'\"
else
echo shar: Extracting \"'libray/libsurf/atmosphere.h'\" \(1227 characters\)
sed "s/^X//" >'libray/libsurf/atmosphere.h' <<'END_OF_FILE'
X/*
X * atmosphere.h
X *
X * Copyright (C) 1989, 1991, Craig E. Kolb
X * All rights reserved.
X *
X * This software may be freely copied, modified, and redistributed
X * provided that this copyright notice is preserved on all copies.
X *
X * You may not distribute this software, in whole or in part, as part of
X * any commercial product without the express consent of the authors.
X *
X * There is no warranty or other guarantee of fitness of this software
X * for any purpose.  It is provided solely "as is".
X *
X * $Id: atmosphere.h,v 4.0 91/07/17 14:40:06 kolb Exp Locker: kolb $
X *
X * $Log:    atmosphere.h,v $
X * Revision 4.0  91/07/17  14:40:06  kolb
X * Initial version.
X *
X */
X#ifndef ATMOSPHERE_H
X#define ATMOSPHERE_H
X
X#include "libcommon/common.h"
X
Xtypedef char * AtmosRef;
X
Xtypedef struct Medium {
X    Float    index,            /* Index of refraction */
X        statten;        /* specular transmission attenuation */
X    struct Medium *next;
X} Medium;
X
Xtypedef struct Atmosphere {
X    AtmosRef data;            /* Effect info */
X    void    (*method)();        /* Atmosphere method */
X    struct Atmosphere *next;    /* Next effect */
X} Atmosphere;
X
Xextern Medium        *MediumPush();
Xextern Atmosphere    *AtmosCreate(), *AtmosphereCopy();
Xextern void        Atmospherics();
X
X#endif /* ATMOSPHERE_H */
END_OF_FILE
if test 1227 -ne `wc -c <'libray/libsurf/atmosphere.h'`; then
    echo shar: \"'libray/libsurf/atmosphere.h'\" unpacked with wrong size!
fi
# end of 'libray/libsurf/atmosphere.h'
fi
if test -f 'libray/libtext/blotch.c' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'libray/libtext/blotch.c'\"
else
echo shar: Extracting \"'libray/libtext/blotch.c'\" \(1369 characters\)
sed "s/^X//" >'libray/libtext/blotch.c' <<'END_OF_FILE'
X/*
X * blotch.c
X *
X * Copyright (C) 1989, 1991, Craig E. Kolb
X * All rights reserved.
X *
X * This software may be freely copied, modified, and redistributed
X * provided that this copyright notice is preserved on all copies.
X *
X * You may not distribute this software, in whole or in part, as part of
X * any commercial product without the express consent of the authors.
X *
X * There is no warranty or other guarantee of fitness of this software
X * for any purpose.  It is provided solely "as is".
X *
X * $Id: blotch.c,v 4.0 91/07/17 14:41:31 kolb Exp Locker: kolb $
X *
X * $Log:    blotch.c,v $
X * Revision 4.0  91/07/17  14:41:31  kolb
X * Initial version.
X *
X */
X#include "texture.h"
X#include "blotch.h"
X
X/*
X * Create and return a reference to a "blotch" texture.
X */
XBlotch *
XBlotchCreate(mix, surf)
XFloat mix;
XSurface *surf;
X{
X    Blotch *blotch;
X
X    blotch = (Blotch *)Malloc(sizeof(Blotch));
X    blotch->mix = mix;
X    blotch->surf = surf;
X    return blotch;
X}
X
X/*
X * Apply "blotch" texture.
X */
X/*ARGSUSED*/
Xvoid
XBlotchApply(blotch, prim, ray, pos, norm, gnorm, surf)
XBlotch *blotch;
XGeom *prim;
XRay *ray;
XVector *pos, *norm, *gnorm;
XSurface *surf;
X{
X    Float val;
X
X    /*
X     * "mix" represents the 'average' noise value at a point.
X     */
X    val = Noise3(pos);
X    if (val > blotch->mix) {
X        val = (val - blotch->mix) / (1. - blotch->mix);
X        SurfaceBlend(surf, blotch->surf, 1. - val, val);
X    }
X}
END_OF_FILE
if test 1369 -ne `wc -c <'libray/libtext/blotch.c'`; then
    echo shar: \"'libray/libtext/blotch.c'\" unpacked with wrong size!
fi
# end of 'libray/libtext/blotch.c'
fi
if test -f 'libray/libtext/bump.c' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'libray/libtext/bump.c'\"
else
echo shar: Extracting \"'libray/libtext/bump.c'\" \(1213 characters\)
sed "s/^X//" >'libray/libtext/bump.c' <<'END_OF_FILE'
X/*
X * bump.c
X *
X * Copyright (C) 1989, 1991, Craig E. Kolb
X * All rights reserved.
X *
X * This software may be freely copied, modified, and redistributed
X * provided that this copyright notice is preserved on all copies.
X *
X * You may not distribute this software, in whole or in part, as part of
X * any commercial product without the express consent of the authors.
X *
X * There is no warranty or other guarantee of fitness of this software
X * for any purpose.  It is provided solely "as is".
X *
X * $Id: bump.c,v 4.0 91/07/17 14:41:39 kolb Exp Locker: kolb $
X *
X * $Log:    bump.c,v $
X * Revision 4.0  91/07/17  14:41:39  kolb
X * Initial version.
X *
X */
X#include "texture.h"
X#include "bump.h"
X
X/*
X * Create and return a reference to a "bump" texture.
X */
XBump *
XBumpCreate(size)
XFloat size;
X{
X    Bump *bump;
X
X    bump = (Bump *)Malloc(sizeof(Bump));
X    bump->size = size;
X    return bump;
X}
X
X/*
X * Apply a "bump" texture.
X */
Xvoid
XBumpApply(bump, prim, ray, pos, norm, gnorm, surf)
XBump *bump;
XGeom *prim;
XRay *ray;
XVector *pos, *norm, *gnorm;
XSurface *surf;
X{
X    Vector disp;
X
X    DNoise3(pos, &disp);
X    norm->x += disp.x * bump->size;
X    norm->y += disp.y * bump->size;
X    norm->z += disp.z * bump->size;
X    (void)VecNormalize(norm);
X}
END_OF_FILE
if test 1213 -ne `wc -c <'libray/libtext/bump.c'`; then
    echo shar: \"'libray/libtext/bump.c'\" unpacked with wrong size!
fi
# end of 'libray/libtext/bump.c'
fi
if test -f 'libray/libtext/checker.c' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'libray/libtext/checker.c'\"
else
echo shar: Extracting \"'libray/libtext/checker.c'\" \(1341 characters\)
sed "s/^X//" >'libray/libtext/checker.c' <<'END_OF_FILE'
X/*
X * checker.c
X *
X * Copyright (C) 1989, 1991, Craig E. Kolb
X * All rights reserved.
X *
X * This software may be freely copied, modified, and redistributed
X * provided that this copyright notice is preserved on all copies.
X *
X * You may not distribute this software, in whole or in part, as part of
X * any commercial product without the express consent of the authors.
X *
X * There is no warranty or other guarantee of fitness of this software
X * for any purpose.  It is provided solely "as is".
X *
X * $Id: checker.c,v 4.0 91/07/17 14:41:48 kolb Exp Locker: kolb $
X *
X * $Log:    checker.c,v $
X * Revision 4.0  91/07/17  14:41:48  kolb
X * Initial version.
X *
X */
X#include "texture.h"
X#include "checker.h"
X
X/*
X * Create and return a reference to a "checker" texture.
X */
XChecker *
XCheckerCreate(surf)
XSurface *surf;
X{
X    Checker *checker;
X    checker = (Checker *)Malloc(sizeof(checker));
X    checker->surf = surf;
X    return checker;
X}
X
X/*
X * Apply a "checker" texture.
X */
Xvoid
XCheckerApply(checker, prim, ray, pos, norm, gnorm, surf)
XChecker *checker;
XGeom *prim;
XRay *ray;
XVector *pos, *norm, *gnorm;
XSurface *surf;
X{
X    int xp, yp, zp;
X
X    xp = pos->x > 0. ? pos->x : 1. - pos->x;
X    yp = pos->y > 0. ? pos->y : 1. - pos->y;
X    zp = pos->z > 0. ? pos->z : 1. - pos->z;
X
X    if ((xp + yp + zp) % 2)
X        *surf = *checker->surf;
X    /* else surface stays the same. */
X}
END_OF_FILE
if test 1341 -ne `wc -c <'libray/libtext/checker.c'`; then
    echo shar: \"'libray/libtext/checker.c'\" unpacked with wrong size!
fi
# end of 'libray/libtext/checker.c'
fi
if test -f 'libray/libtext/fbmbump.c' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'libray/libtext/fbmbump.c'\"
else
echo shar: Extracting \"'libray/libtext/fbmbump.c'\" \(1284 characters\)
sed "s/^X//" >'libray/libtext/fbmbump.c' <<'END_OF_FILE'
X/*
X * fbmbump.c
X *
X * Copyright (C) 1989, 1991, Craig E. Kolb
X * All rights reserved.
X *
X * This software may be freely copied, modified, and redistributed
X * provided that this copyright notice is preserved on all copies.
X *
X * You may not distribute this software, in whole or in part, as part of
X * any commercial product without the express consent of the authors.
X *
X * There is no warranty or other guarantee of fitness of this software
X * for any purpose.  It is provided solely "as is".
X *
X * $Id: fbmbump.c,v 4.0 91/07/17 14:42:21 kolb Exp Locker: kolb $
X *
X * $Log:    fbmbump.c,v $
X * Revision 4.0  91/07/17  14:42:21  kolb
X * Initial version.
X *
X */
X#include "texture.h"
X#include "fbm.h"
X#include "fbmbump.h"
X
XFBm *
XFBmBumpCreate(offset, scale, h, lambda, octaves)
XFloat offset, h, lambda, scale;
Xint octaves;
X{
X    FBm *fbm;
X    fbm = FBmCreate(offset, scale, h, lambda, octaves, 0., (char *)NULL);
X    return fbm;
X}
X
X/*ARGSUSED*/
Xvoid
XFBmBumpApply(fbm, prim, ray, pos, norm, gnorm, surf)
XFBm *fbm;
XGeom *prim;
XRay *ray;
XVector *pos, *norm, *gnorm;
XSurface *surf;
X{
X    Vector disp;
X
X    VfBm(pos, fbm->omega, fbm->lambda, fbm->octaves, &disp);
X    norm->x += fbm->offset + disp.x * fbm->scale;
X    norm->y += fbm->offset + disp.y * fbm->scale;
X    norm->z += fbm->offset + disp.z * fbm->scale;
X}
END_OF_FILE
if test 1284 -ne `wc -c <'libray/libtext/fbmbump.c'`; then
    echo shar: \"'libray/libtext/fbmbump.c'\" unpacked with wrong size!
fi
# end of 'libray/libtext/fbmbump.c'
fi
if test -f 'libray/libtext/gloss.c' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'libray/libtext/gloss.c'\"
else
echo shar: Extracting \"'libray/libtext/gloss.c'\" \(1477 characters\)
sed "s/^X//" >'libray/libtext/gloss.c' <<'END_OF_FILE'
X/*
X * gloss.c
X *
X * Copyright (C) 1989, 1991, Craig E. Kolb
X * All rights reserved.
X *
X * This software may be freely copied, modified, and redistributed
X * provided that this copyright notice is preserved on all copies.
X *
X * You may not distribute this software, in whole or in part, as part of
X * any commercial product without the express consent of the authors.
X *
X * There is no warranty or other guarantee of fitness of this software
X * for any purpose.  It is provided solely "as is".
X *
X * $Id: gloss.c,v 4.0 91/07/17 14:42:30 kolb Exp Locker: kolb $
X *
X * $Log:    gloss.c,v $
X * Revision 4.0  91/07/17  14:42:30  kolb
X * Initial version.
X *
X */
X#include "texture.h"
X#include "gloss.h"
X
XGloss *
XGlossCreate(glossiness)
XFloat glossiness;
X{
X    Gloss *gloss;
X
X    gloss = (Gloss *)Malloc(sizeof(Gloss));
X    gloss->glossy = 1. - glossiness;
X    return gloss;
X}
X
Xvoid
XGlossApply(gloss, prim, ray, pos, norm, gnorm, surf)
XGloss *gloss;
XGeom *prim;
XRay *ray;
XVector *pos, *norm, *gnorm;
XSurface *surf;
X{
X    Vector uaxis, vaxis, point, norminc;
X    extern void UnitCirclePoint();
X
X    /*
X     * Find coordinate system with norm as the Z axis.
X     */
X    VecCoordSys(norm, &uaxis, &vaxis);
X    /*
X     * Find point on unit circle based on sample #.
X     */
X    UnitCirclePoint(&point, ray->sample);
X    /*
X     * Perturb normal appropriately.
X     */
X    VecComb(gloss->glossy * point.x, uaxis,
X        gloss->glossy * point.y, vaxis,
X        &norminc);
X    VecAdd(*norm, norminc, norm);
X    /*
X     * Renormalize.
X     */
X    (void)VecNormalize(norm);
X}
END_OF_FILE
if test 1477 -ne `wc -c <'libray/libtext/gloss.c'`; then
    echo shar: \"'libray/libtext/gloss.c'\" unpacked with wrong size!
fi
# end of 'libray/libtext/gloss.c'
fi
if test -f 'libray/libtext/imagetext.h' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'libray/libtext/imagetext.h'\"
else
echo shar: Extracting \"'libray/libtext/imagetext.h'\" \(1222 characters\)
sed "s/^X//" >'libray/libtext/imagetext.h' <<'END_OF_FILE'
X/*
X * imagetext.h
X *
X * Copyright (C) 1989, 1991, Craig E. Kolb
X * All rights reserved.
X *
X * This software may be freely copied, modified, and redistributed
X * provided that this copyright notice is preserved on all copies.
X *
X * You may not distribute this software, in whole or in part, as part of
X * any commercial product without the express consent of the authors.
X *
X * There is no warranty or other guarantee of fitness of this software
X * for any purpose.  It is provided solely "as is".
X *
X * $Id: imagetext.h,v 4.0 91/07/17 14:42:47 kolb Exp Locker: kolb $
X *
X * $Log:    imagetext.h,v $
X * Revision 4.0  91/07/17  14:42:47  kolb
X * Initial version.
X *
X */
X#ifndef IMAGETEXT_H
X#define IMAGETEXT_H
X
X#define TextImageCreate(s) TextCreate((TextRef)ImageTextCreate(s), \
X                ImageTextApply)
X
Xtypedef struct {
X    Image    *image;        /* image to use */
X    Surface *surf;        /* Alternative surface */
X    int    component,    /* component to texture */
X        smooth;        /* interpolate pixel values? */
X    Float    lo, hi;        /* high and low values in image */
X    Float    tileu, tilev;    /* tiling control */
X    Mapping    *mapping;
X} ImageText;
X
Xextern ImageText *ImageTextCreate();
Xextern void ImageTextApply(), ImageTextSetComponent();
X
X#endif /* IMAGETEXT_H */
END_OF_FILE
if test 1222 -ne `wc -c <'libray/libtext/imagetext.h'`; then
    echo shar: \"'libray/libtext/imagetext.h'\" unpacked with wrong size!
fi
# end of 'libray/libtext/imagetext.h'
fi
if test -f 'libray/libtext/mount.c' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'libray/libtext/mount.c'\"
else
echo shar: Extracting \"'libray/libtext/mount.c'\" \(1523 characters\)
sed "s/^X//" >'libray/libtext/mount.c' <<'END_OF_FILE'
X/*
X * mount.c
X *
X * Copyright (C) 1989, 1991, Craig E. Kolb
X * All rights reserved.
X *
X * This software may be freely copied, modified, and redistributed
X * provided that this copyright notice is preserved on all copies.
X *
X * You may not distribute this software, in whole or in part, as part of
X * any commercial product without the express consent of the authors.
X *
X * There is no warranty or other guarantee of fitness of this software
X * for any purpose.  It is provided solely "as is".
X *
X * $Id: mount.c,v 4.0 91/07/17 14:43:17 kolb Exp Locker: kolb $
X *
X * $Log:    mount.c,v $
X * Revision 4.0  91/07/17  14:43:17  kolb
X * Initial version.
X *
X */
X#include "texture.h"
X#include "mount.h"
X
X/*
X * Create and return a reference to a "mount" texture.
X */
XMount *
XMountCreate(cmap, turb, slope)
Xchar *cmap;
XFloat turb, slope;
X{
X    Mount *mount;
X
X    mount = (Mount *)Malloc(sizeof(Mount));
X    mount->turb = turb;
X    mount->slope = slope;
X    mount->cmap = ColormapRead(cmap);
X    return mount;
X}
X
X/*
X * Apply a "mount" texture.
X */
Xvoid
XMountApply(mount, prim, ray, pos, norm, gnorm, surf)
XMount *mount;
XGeom *prim;
XRay *ray;
XVector *pos, *norm, *gnorm;
XSurface *surf;
X{
X    int index;
X    Float t;
X    Color c;
X
X    t = Chaos(pos, 7);
X    index = (pos->z + mount->turb*t - mount->slope*(1.-norm->z))*256;
X    if (index < 0)
X        index = 0;
X    if (index > 255)
X        index = 255;
X
X    ColorMultiply(surf->amb, mount->cmap[index], &surf->amb);
X    ColorMultiply(surf->diff, mount->cmap[index], &surf->diff);
X    ColorMultiply(surf->spec, mount->cmap[index], &surf->spec);
X}
END_OF_FILE
if test 1523 -ne `wc -c <'libray/libtext/mount.c'`; then
    echo shar: \"'libray/libtext/mount.c'\" unpacked with wrong size!
fi
# end of 'libray/libtext/mount.c'
fi
if test -f 'libshade/builtin.c' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'libshade/builtin.c'\"
else
echo shar: Extracting \"'libshade/builtin.c'\" \(1383 characters\)
sed "s/^X//" >'libshade/builtin.c' <<'END_OF_FILE'
X/*
X * builtin.c
X *
X * Copyright (C) 1989, 1991, Craig E. Kolb, Rod G. Bogart
X * All rights reserved.
X *
X * This software may be freely copied, modified, and redistributed
X * provided that this copyright notice is preserved on all copies.
X *
X * You may not distribute this software, in whole or in part, as part of
X * any commercial product without the express consent of the authors.
X *
X * There is no warranty or other guarantee of fitness of this software
X * for any purpose.  It is provided solely "as is".
X *
X * $Id: builtin.c,v 4.0 91/07/17 14:45:00 kolb Exp Locker: kolb $
X *
X * $Log:    builtin.c,v $
X * Revision 4.0  91/07/17  14:45:00  kolb
X * Initial version.
X *
X */
X
X#include "rayshade.h"
X
XFloat
XSumExpr(a, b)
XFloat a, b;
X{
X    return a + b;
X}
XFloat
XDiffExpr(a, b)
XFloat a, b;
X{
X    return a - b;
X}
X
XFloat
XMultExpr(a, b)
XFloat a, b;
X{
X    return a * b;
X}
XFloat
XDivideExpr(a, b)
XFloat a, b;
X{
X    return a / b;
X}
X
XFloat
XModExpr(a, b)
XFloat a, b;
X{
X    return (Float)((int)a % (int)b);
X}
X
XFloat
XNegateExpr(a)
XFloat a;
X{
X    return -a;
X}
X
XFloat
XLinearTime(starttime, startval, endtime, endval)
XFloat starttime, endtime, startval, endval;
X{
X    if (TimeExpr->value < starttime)
X        return startval;
X    if (TimeExpr->value > endtime)
X        return endval;
X    if (equal(endtime, starttime))
X        return startval;
X    return startval + (endval - startval) *
X        (TimeExpr->value - starttime) / (endtime - starttime);
X}
END_OF_FILE
if test 1383 -ne `wc -c <'libshade/builtin.c'`; then
    echo shar: \"'libshade/builtin.c'\" unpacked with wrong size!
fi
# end of 'libshade/builtin.c'
fi
if test -f 'libshade/stats.h' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'libshade/stats.h'\"
else
echo shar: Extracting \"'libshade/stats.h'\" \(1395 characters\)
sed "s/^X//" >'libshade/stats.h' <<'END_OF_FILE'
X/*
X * stats.h
X *
X * Copyright (C) 1989, 1991, Craig E. Kolb
X * All rights reserved.
X *
X * This software may be freely copied, modified, and redistributed
X * provided that this copyright notice is preserved on all copies.
X *
X * You may not distribute this software, in whole or in part, as part of
X * any commercial product without the express consent of the authors.
X *
X * There is no warranty or other guarantee of fitness of this software
X * for any purpose.  It is provided solely "as is".
X *
X * $Id: stats.h,v 4.0 91/07/17 14:47:46 kolb Exp Locker: kolb $
X *
X * $Log:    stats.h,v $
X * Revision 4.0  91/07/17  14:47:46  kolb
X * Initial version.
X *
X */
X#ifndef STATS_H
X#define STATS_H
X
X/*
X * Statistics
X */
Xtypedef struct RSStats {
X    unsigned long    EyeRays,    /* # of eye rays spawned */
X            ShadowRays,    /* # of shadow rays spawned */
X            ReflectRays,    /* # of reflected rays */
X            RefractRays,    /* # of refracted rays */
X            HitRays,    /* # of rays that hit something. */
X            BVTests,    /* # of bounding volume tests. */
X            SuperSampled,    /* # of supersampled pixels. */
X            ShadowHits,    /* # of shadow ray hits */
X            CacheHits,    /* # of shadow cache hits */
X            CacheMisses;    /* # of shadow cache misses */
X    Float        Utime,        /* User time */
X            Stime;        /* System time */
X    FILE        *fstats;    /* Stats/info file pointer. */
X} RSStats;
X
Xextern RSStats Stats;
Xextern void StatsPrint(), StatsAddRep();
X
X#endif /* STATS_H */
END_OF_FILE
if test 1395 -ne `wc -c <'libshade/stats.h'`; then
    echo shar: \"'libshade/stats.h'\" unpacked with wrong size!
fi
# end of 'libshade/stats.h'
fi
if test -f 'libshade/symtab.h' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'libshade/symtab.h'\"
else
echo shar: Extracting \"'libshade/symtab.h'\" \(1180 characters\)
sed "s/^X//" >'libshade/symtab.h' <<'END_OF_FILE'
X/*
X * symtab.h
X *
X * Copyright (C) 1989, 1991, Craig E. Kolb, Rod G. Bogart
X * All rights reserved.
X *
X * This software may be freely copied, modified, and redistributed
X * provided that this copyright notice is preserved on all copies.
X *
X * You may not distribute this software, in whole or in part, as part of
X * any commercial product without the express consent of the authors.
X *
X * There is no warranty or other guarantee of fitness of this software
X * for any purpose.  It is provided solely "as is".
X *
X * $Id: symtab.h,v 4.0 91/07/17 14:48:12 kolb Exp Locker: kolb $
X *
X * $Log:    symtab.h,v $
X * Revision 4.0  91/07/17  14:48:12  kolb
X * Initial version.
X *
X */
X
X#ifndef SYMTAB_H
X#define SYMTAB_H
X
Xtypedef Float (*FloatFuncPtr)();
X
Xstruct SymtabPredefinedEntry {
X    char * name;
X    Float f;
X    FloatFuncPtr fp;
X    int type;
X    int timevary;
X    int params;
X};
X
Xtypedef    union {
X    Float (*fp)();
X    Expr *expr;
X} SymtabValue;
X
Xtypedef struct SymtabEntry {
X    char     *name;
X    SymtabValue value;
X    int type;
X    int timevary;
X    int params;
X    struct SymtabEntry *next;
X} SymtabEntry;
X
Xextern Expr *ExprFloatSymtabFind();
Xextern SymtabEntry *SymtabFind(), *SymtabBuiltinFind();
X
X#endif /* SYMTAB_H */
END_OF_FILE
if test 1180 -ne `wc -c <'libshade/symtab.h'`; then
    echo shar: \"'libshade/symtab.h'\" unpacked with wrong size!
fi
# end of 'libshade/symtab.h'
fi
if test -f 'libshade/viewing.h' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'libshade/viewing.h'\"
else
echo shar: Extracting \"'libshade/viewing.h'\" \(1564 characters\)
sed "s/^X//" >'libshade/viewing.h' <<'END_OF_FILE'
X/*
X * viewing.h
X *
X * Copyright (C) 1989, 1991, Craig E. Kolb
X * All rights reserved.
X *
X * This software may be freely copied, modified, and redistributed
X * provided that this copyright notice is preserved on all copies.
X *
X * You may not distribute this software, in whole or in part, as part of
X * any commercial product without the express consent of the authors.
X *
X * There is no warranty or other guarantee of fitness of this software
X * for any purpose.  It is provided solely "as is".
X *
X * $Id: viewing.h,v 4.0 91/07/17 14:48:26 kolb Exp Locker: kolb $
X *
X * $Log:    viewing.h,v $
X * Revision 4.0  91/07/17  14:48:26  kolb
X * Initial version.
X *
X */
X#ifndef VIEWING_H
X#define VIEWING_H
X
X/*
X * Screen
X */
Xtypedef struct RSScreen {
X    int    xres, yres,        /* Resolution of entire screen */
X        xsize, ysize,        /* Resolution of window */
X        minx, miny, maxx, maxy; /* Window to be rendered */
X    Vector    scrnx, scrny,        /* Horizontal & vertical screen axes */
X        scrni, scrnj,        /* Normalized versions of the above */
X        firstray;        /* Direction from eye to screen UL  */
X    Color    background;        /* Background color */
X} RSScreen;
X
X/*
X * Camera
X */
Xtypedef struct {
X    Vector    pos,            /* Eye position */
X        lookp,            /* Look position */
X        dir,            /* Look direction */
X        up;            /* 'Up' vector */
X    Float    hfov, vfov,        /* Horizontal/vertical field of view */
X        lookdist,        /* Eye pos/look pos distance */
X        aperture,        /* Aperture width (0 == pinhole) */
X        focaldist;        /* Distance from eye to focal plane */
X} RSCamera;
X
Xextern RSScreen Screen;
Xextern RSCamera Camera;
X
X#endif /* VIEWING_H */
END_OF_FILE
if test 1564 -ne `wc -c <'libshade/viewing.h'`; then
    echo shar: \"'libshade/viewing.h'\" unpacked with wrong size!
fi
# end of 'libshade/viewing.h'
fi
echo shar: End of archive 3 \(of 19\).
cp /dev/null ark3isdone
MISSING=""
for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 ; do
    if test ! -f ark${I}isdone ; then
    MISSING="${MISSING} ${I}"
    fi
done
if test "${MISSING}" = "" ; then
    echo You have unpacked all 19 archives.
    rm -f ark[1-9]isdone ark[1-9][0-9]isdone
else
    echo You still need to unpack the following archives:
    echo "        " ${MISSING}
fi
##  End of shell archive.
exit 0

exit 0 # Just in case...